home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / t_os / fapx / fapx3am.plp next >
Text File  |  1991-10-18  |  813b  |  34 lines
  1. /************************************************************************/
  2. /*    ＮＩＦＴＹの割引料金時間帯に自動実行開始する            */
  3. /************************************************************************/
  4. %WAIT3AM{
  5.     footnote({3:00am - 7:59amの間に自動開始します。　PF12:即時実行});
  6.     dispoff({Yes});
  7.     command({del }|TEMP|{*.tmp});
  8.     write(TEMP|{_moptemp.tmp},{\n});
  9.     loop    (
  10.         {
  11.         command({time >}|TEMP|{_moptime.tmp <}|TEMP|{_moptemp.tmp});
  12.         case    (
  13.             @getchar(@read(TEMP|{_moptime.tmp},1,1),14,2),
  14.             { 3},    {im({No})},
  15.             { 4},    {im({No})},
  16.             { 5},    {im({No})},
  17.             { 6},    {im({No})},
  18.             { 7},    {im({No})},
  19.             ,    {
  20.                 waitx(1200);
  21.                 case    (
  22.                     @xtype,
  23.                     {-2},    {im({Yes})},    /* timeout */
  24.                     {112},    {im({No})}    /* PF12 */
  25.                     );
  26.                 }
  27.             );
  28.         }
  29.         );
  30.     dispoff({No});
  31.     };
  32.  
  33. WAIT3AM;
  34.